home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / DEMO / FRACT / FRACTINT.FRM < prev    next >
Text File  |  1990-05-14  |  4KB  |  121 lines
  1.  comment = {
  2.  FRACTINT.DOC has instructions for adding new formulas to this file.
  3.  Note that there are several hard-coded restrictions in the formula
  4.  interpreter:
  5.  
  6.  1) The fractal name through the open curly bracket must be on a single line.
  7.  2) There is a current hard-coded limit of 30 formulas per formula file, only
  8.     because of restrictions in the prompting routines.
  9.  3) Formulas must currently be less than 200 characters long. 
  10.  3) Comments, like this one, are set up using dummy formulas with no 
  11.     formula name or the special name "comment".  There can be as many
  12.     of these "comment" fractals as desired, they can be interspersed with
  13.     the real formulas, and they have no length restriction.
  14.  
  15.  The formulas in the beginning of this file are from Mark Peterson, who
  16.  built this fractal interpreter feature.  Those at the end are the
  17.  contribution of Scott Taylor [72401,410].  Keep 'em coming, Scott!
  18.  }
  19.  
  20.    Mandelbrot(XAXIS) = {
  21.       z = Pixel:  z = sqr(z) + pixel, |z| <= 4
  22.    }
  23.  
  24.    Dragon (ORIGIN) {
  25.       z = Pixel:  
  26.          z = sqr(z) + (-0.74543, 0.2), 
  27.       |z| <= 4
  28.    }
  29.  
  30.    Daisy (ORIGIN) = { z = pixel:  z = z*z + (0.11031, -0.67037), |z| <= 4 }
  31.  
  32.    MandelSine (XYAXIS) { z = Pixel:  z = sin(z) * pixel, |z| <= 50 }
  33.    MandelCosine(XYAXIS) { z = pixel:  z = cos(z) * pixel, |z| <= 50 }
  34.    MandelHypSine(XYAXIS) { z = pixel:  z = sinh(z) * pixel, |z| <= 50 }
  35.    MandelHypCosine(XYAXIS) { z = pixel: z = cosh(z) * pixel, |z| <= 50 }
  36.  
  37.    LambdaLog(XAXIS) { 
  38.       z = pixel, c = log(pixel):  
  39.          z = c * sqr(z) + pixel, 
  40.       |z| <= 4 
  41.    }
  42.  
  43.    InvMandel {
  44.       c = z = 1 / pixel:
  45.          z = sqr(z) + c;
  46.       |z| <= 4
  47.    }
  48.  
  49.    MarksMandelPwr { 
  50.       z = pixel, c = z ^ (z - 1):  
  51.          z = c * sqr(z) + pixel, 
  52.       |z| <= 4
  53.    }
  54.  
  55.    DeltaLog(XAXIS) {
  56.       z = pixel, c = log(pixel):  
  57.          z = sqr(z) + c, 
  58.       |z| <= 4
  59.    }
  60.  
  61.    Newton4(XYAXIS) {
  62.       z = pixel; Root = 1:
  63.          z3 = z*z*z;
  64.          z4 = z3 * z;
  65.          z = (3 * z4 + Root) / (4 * z3),
  66.         .004 <= |z4 - Root|
  67.    }
  68.  
  69.  
  70.  { Formulas from this point on were contributed by Scott Taylor [72401,410].  }
  71.  { Parameter 1 controls the depth - larger numbers give more detail & colors. }
  72.  { My favorite range is between 20-30, but smaller numbers are faster.        }
  73.  
  74.  ScottSin(XAXIS) { z = pixel, TEST = (p1+3): z = sin(z) + sqr(z), |z|<TEST }
  75.  
  76.  ScottSinH(XAXIS) { z = pixel, TEST = (p1+3): z = sinh(z) + sqr(z), |z|<TEST }
  77.  
  78.  ScottCos(XYAXIS) { z = pixel, TEST = (p1+3): z = cos(z) + sqr(z), |z|<TEST }
  79.  
  80.  ScottCosH(XYAXIS) { z = pixel, TEST = (p1+3): z = cosh(z) + sqr(z), |z|<TEST }
  81.  
  82.  ScottSZSA(XYAXIS) { z = pixel, TEST = (p1+3): z = sin(z*z), |z|<TEST }
  83.  
  84.  ScottSZSB(XYAXIS) { z = pixel, TEST = (p1+3): z = sin(z)*sin(z), |z|<TEST }
  85.  
  86.  ScottCZSA(XYAXIS) { z = pixel, TEST = (p1+3): z = cos(z*z), |z|<TEST }
  87.  
  88.  ScottCZSB(XYAXIS) { z = pixel, TEST = (p1+3): z = cos(z)*cos(z), |z|<TEST }
  89.  
  90.  ScottLTS(XAXIS) { z = pixel, TEST = (p1+3): z = log(z)*sin(z), |z|<TEST }
  91.  
  92.  ScottLTC(XAXIS) { z = pixel, TEST = (p1+3): z = log(z)*cos(z), |z|<TEST }
  93.  
  94.  ScottLPC(XAXIS) { z = pixel, TEST = (p1+3): z = log(z)+cos(z), |z|<TEST }
  95.  
  96.  ScottLPS { z = pixel, TEST = (p1+3): z = log(z)+sin(z), |z|<TEST }
  97.  
  98.  ScottSIC(XYAXIS) { z = pixel, TEST = (p1+3): z = sqr(1/cos(z)), |z|<TEST }
  99.  
  100.  ScottSIS { z = pixel, TEST = (p1+3): z = sqr(1/sin(z)), |z|<TEST }
  101.  
  102.  ScottZSZZ(XAXIS) { z = pixel, TEST = (p1+3): z = (z*sin(z))+z, |z|<TEST }
  103.  
  104.  ScottZCZZ(XYAXIS) { z = pixel, TEST = (p1+3): z = (z*cos(z))+z, |z|<TEST }
  105.  
  106.  
  107.  { Formulas from this point on are the contrubutions of Lee H. Skinner }
  108.  
  109.  { Tetration formula of Ackerman's Generalized Exponential }
  110.  
  111.  Tetrate(XAXIS) { c = z = pixel: z = c ^ z, |z| <= (P1+3) }
  112.  
  113.  { from expansion module 2 of Fractal Magic 5.0 (Lee stole it - not me!) }
  114.  
  115.  Spider(XAXIS) { c = z = pixel: z = z * z + c; c = c / 2 + z, |z| <= 4 }
  116.  
  117.  { "Dragonland" from EGA Fractal Master.  Default corners should really be }
  118.  {  -2/4/-2.25/2.25  Not symmetrical to x=1, although it is close!         }
  119.  
  120.  Mandelglass(XAXIS) { z = (0.5, 0.0): z = pixel * z * (1 - z), |z| <= 4 }
  121.